home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1998 April
/
EnigmA AMIGA RUN 26 (1998)(G.R. Edizioni)(IT)[!][issue 1998-04].iso
/
classx
/
x-dve
/
utils
/
xfa_util
/
arexx
/
adpro_xfatoanim5.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1998-03-09
|
2KB
|
83 lines
/* XFA To Anim5 - ADPro Example
**
** (C) Copyright 1995 Fabio Rotondo
**
** Written For ClassX.
**
*/
ADDRESS "XFA.1"
InputMode XFAAnim /* Metodo Di Input XFA Anim */
OutputMode Frames /* Metodo di output di XFA è FRAMES */
SetPath ADPro 'ADPro:ADPro' /* Settiamo Il Path Di Ricerca */
SetPort ADPro 'ADPro' /* Settiamo la porta di comunicazione */
CallProcessor ADPro /* Chiamiamo ADPro */
CountFormat '' /* Il formato di conteggio deve essere "" */
GetInput /* Chiediamo Il nome del File XFA in Input */
OutputName 'T:Frame' /* Il nome in output è T:Frame */
ADDRESS 'ADPro' /* Cominciamo Una Bella Chiaccherata con ADPro */
OPTIONS RESULTS
LFORMAT 'IFF' /* Formato Di Caricamento: IFF */
SFORMAT 'ANIM' /* Formato Di Salvataggio: ANIM */
PSTATUS UNLOCKED
GETFILE '"Inserisci il Nome Dell''Anim5 Da Creare"'
IF RC = 10 THEN abort()
fout = ADPRO_RESULT
ADDRESS 'XFA.1'
Convert /* Iniziamo La Conversione */
status = -1
count = 0
DO WHILE status=-1
ADDRESS 'XFA.1'
XFANextFrame
GetStatus()
IF status = -1 THEN /* Se il frame esiste... */
ADDRESS 'ADPro'
CLEAR_RENDERED /* Puliamo la memoria di ADPro */
CLEAR_RAW
fname = 'T:Frame'||count
count = count +1 /* Contatore dell'Anim */
LOAD fname /* Carichiamo Il frame */
EXECUTE /* Renderizziamo il frame */
SAVE fout IMAGE APPEND SMALLER BYTE /* Salviamo il frame */
IF count = 1 THEN PSTATUS LOCKED /* Lockiamo la palette dal 1 frame */
ADDRESS 'XFA.1'
KILLFILE fname /* Chiamiamo il comando 'delete'
** del DOS per cancellare il frame */
ENDIF
END
ADDRESS 'XFA.1'
XFAClose
ADDRESS 'ADPro'
SAVE fout IMAGE WRAPUP SMALLER BYTE
CLEAR_RENDERED /* Puliamo la memoria di ADPro */
CLEAR_RAW
Message "Conversion done."
Exit(0)
GetStatus:
IF OPEN('sfile', 'ENV:XFAStatus', 'READ') THEN
status=READLN('sfile')
CLOSE('sfile')
ENDIF
RETURN status
Abort:
ADDRESS 'XFA.1'
Message '"Operation Aborted By The User."'
Exit(0)